home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-02-03 | 9.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e f4 20 3e 20 | 3c 49 6e 69 74 44 4d 24 |..... > |<InitDM$|
|00000010| 44 69 72 3e 2e 21 52 75 | 6e 49 6d 61 67 65 0d 00 |Dir>.!Ru|nImage..|
|00000020| 14 32 f4 20 21 49 6e 69 | 74 44 4d 20 61 70 70 6c |.2. !Ini|tDM appl|
|00000030| 69 63 61 74 69 6f 6e 3a | 20 69 6e 69 74 20 64 6f |ication:| init do|
|00000040| 74 20 6d 61 74 72 69 78 | 20 70 72 69 6e 74 65 72 |t matrix| printer|
|00000050| 0d 00 1e 28 f4 20 43 6f | 70 79 72 69 67 68 74 20 |...(. Co|pyright |
|00000060| 28 43 29 20 57 61 6c 74 | 68 65 72 20 53 63 68 6f |(C) Walt|her Scho|
|00000070| 6f 6e 65 6e 62 65 72 67 | 0d 00 28 05 3a 0d 00 32 |onenberg|..(.:..2|
|00000080| 30 70 72 6f 67 72 61 6d | 24 3d 22 49 6e 69 74 44 |0program|$="InitD|
|00000090| 4d 22 3a 76 65 72 73 69 | 6f 6e 24 3d 22 31 2e 30 |M":versi|on$="1.0|
|000000a0| 30 20 28 33 2d 46 65 62 | 2d 39 30 29 22 0d 00 3c |0 (3-Feb|-90)"..<|
|000000b0| 05 3a 0d 00 46 1e de 20 | 74 61 73 6b 69 64 25 34 |.:..F.. |taskid%4|
|000000c0| 3a 24 74 61 73 6b 69 64 | 25 3d 22 54 41 53 4b 22 |:$taskid|%="TASK"|
|000000d0| 0d 00 50 39 c8 99 20 22 | 57 69 6d 70 5f 49 6e 69 |..P9.. "|Wimp_Ini|
|000000e0| 74 69 61 6c 69 73 65 22 | 2c 32 30 30 2c 21 74 61 |tialise"|,200,!ta|
|000000f0| 73 6b 69 64 25 2c 70 72 | 6f 67 72 61 6d 24 20 b8 |skid%,pr|ogram$ .|
|00000100| 20 76 65 72 73 69 6f 6e | 25 0d 00 5a 13 ee 20 85 | version|%..Z.. .|
|00000110| 20 f2 65 72 72 6f 72 62 | 6f 78 3a e0 0d 00 64 05 | .errorb|ox:...d.|
|00000120| 3a 0d 00 6e 25 de 20 71 | 25 20 32 35 36 2c 62 6c |:..n%. q|% 256,bl|
|00000130| 6f 63 6b 25 20 26 31 30 | 30 30 2c 69 63 6f 6e 62 |ock% &10|00,iconb|
|00000140| 75 66 25 20 34 30 0d 00 | 78 2f 6d 61 78 77 73 25 |uf% 40..|x/maxws%|
|00000150| 3d 26 31 34 30 30 3a de | 20 77 73 25 20 6d 61 78 |=&1400:.| ws% max|
|00000160| 77 73 25 3a 77 73 65 6e | 64 25 3d 77 73 25 2b 6d |ws%:wsen|d%=ws%+m|
|00000170| 61 78 77 73 25 0d 00 82 | 34 c8 99 20 22 57 69 6d |axws%...|4.. "Wim|
|00000180| 70 5f 4f 70 65 6e 54 65 | 6d 70 6c 61 74 65 22 2c |p_OpenTe|mplate",|
|00000190| 2c 22 3c 49 6e 69 74 44 | 4d 24 44 69 72 3e 2e 54 |,"<InitD|M$Dir>.T|
|000001a0| 65 6d 70 6c 61 74 65 73 | 22 0d 00 8c 2b ee 20 85 |emplates|"...+. .|
|000001b0| 20 c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 | .. "Wim|p_CloseT|
|000001c0| 65 6d 70 6c 61 74 65 22 | 3a f2 65 72 72 6f 72 62 |emplate"|:.errorb|
|000001d0| 6f 78 3a e0 0d 00 96 41 | c8 99 20 22 57 69 6d 70 |ox:....A|.. "Wimp|
|000001e0| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|000001f0| 62 6c 6f 63 6b 25 2c 77 | 73 25 2c 77 73 65 6e 64 |block%,w|s%,wsend|
|00000200| 25 2c 2d 31 2c 22 49 6e | 66 6f 22 2c 30 20 b8 20 |%,-1,"In|fo",0 . |
|00000210| 2c 2c 77 73 25 0d 00 a0 | 2a c8 99 20 22 57 69 6d |,,ws%...|*.. "Wim|
|00000220| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|00000230| 2c 62 6c 6f 63 6b 25 20 | b8 20 69 6e 66 6f 25 0d |,block% |. info%.|
|00000240| 00 aa 32 76 65 72 73 69 | 6f 6e 25 3d a4 69 63 6f |..2versi|on%=.ico|
|00000250| 6e 61 64 64 72 28 69 6e | 66 6f 25 2c 34 29 3a 24 |naddr(in|fo%,4):$|
|00000260| 76 65 72 73 69 6f 6e 25 | 3d 76 65 72 73 69 6f 6e |version%|=version|
|00000270| 24 0d 00 b4 41 c8 99 20 | 22 57 69 6d 70 5f 4c 6f |$...A.. |"Wimp_Lo|
|00000280| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 62 6c 6f |adTempla|te",,blo|
|00000290| 63 6b 25 2c 77 73 25 2c | 77 73 65 6e 64 25 2c 2d |ck%,ws%,|wsend%,-|
|000002a0| 31 2c 22 4d 61 69 6e 22 | 2c 30 20 b8 20 2c 2c 77 |1,"Main"|,0 . ,,w|
|000002b0| 73 25 0d 00 be 2a c8 99 | 20 22 57 69 6d 70 5f 43 |s%...*..| "Wimp_C|
|000002c0| 72 65 61 74 65 57 69 6e | 64 6f 77 22 2c 2c 62 6c |reateWin|dow",,bl|
|000002d0| 6f 63 6b 25 20 b8 20 6d | 61 69 6e 25 0d 00 c8 20 |ock% . m|ain%... |
|000002e0| 70 72 69 6e 74 65 72 25 | 3d a4 69 63 6f 6e 61 64 |printer%|=.iconad|
|000002f0| 64 72 28 6d 61 69 6e 25 | 2c 32 34 29 0d 00 d2 1b |dr(main%|,24)....|
|00000300| 74 6d 25 3d a4 69 63 6f | 6e 61 64 64 72 28 6d 61 |tm%=.ico|naddr(ma|
|00000310| 69 6e 25 2c 31 36 29 0d | 00 dc 1a 62 6d 25 3d a4 |in%,16).|...bm%=.|
|00000320| 69 63 6f 6e 61 64 64 72 | 28 6d 61 69 6e 25 2c 34 |iconaddr|(main%,4|
|00000330| 29 0d 00 e6 1b 6c 6d 25 | 3d a4 69 63 6f 6e 61 64 |)....lm%|=.iconad|
|00000340| 64 72 28 6d 61 69 6e 25 | 2c 31 39 29 0d 00 f0 1b |dr(main%|,19)....|
|00000350| 72 6d 25 3d a4 69 63 6f | 6e 61 64 64 72 28 6d 61 |rm%=.ico|naddr(ma|
|00000360| 69 6e 25 2c 32 30 29 0d | 00 fa 44 c8 99 20 22 57 |in%,20).|..D.. "W|
|00000370| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00000380| 22 2c 2c 62 6c 6f 63 6b | 25 2c 77 73 25 2c 77 73 |",,block|%,ws%,ws|
|00000390| 65 6e 64 25 2c 2d 31 2c | 22 6d 65 73 73 61 67 65 |end%,-1,|"message|
|000003a0| 22 2c 30 20 b8 20 2c 2c | 77 73 25 0d 01 04 2d c8 |",0 . ,,|ws%...-.|
|000003b0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|000003c0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 20 b8 20 |ndow",,b|lock% . |
|000003d0| 6d 65 73 73 61 67 65 25 | 0d 01 0e 27 6d 65 73 73 |message%|...'mess|
|000003e0| 61 67 65 5f 69 63 6f 6e | 25 3d a4 69 63 6f 6e 61 |age_icon|%=.icona|
|000003f0| 64 64 72 28 6d 65 73 73 | 61 67 65 25 2c 30 29 0d |ddr(mess|age%,0).|
|00000400| 01 18 44 c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |..D.. "W|imp_Load|
|00000410| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |Template|",,block|
|00000420| 25 2c 77 73 25 2c 77 73 | 65 6e 64 25 2c 2d 31 2c |%,ws%,ws|end%,-1,|
|00000430| 22 4f 70 74 69 6f 6e 73 | 22 2c 30 20 b8 20 2c 2c |"Options|",0 . ,,|
|00000440| 77 73 25 0d 01 22 2d c8 | 99 20 22 57 69 6d 70 5f |ws%.."-.|. "Wimp_|
|00000450| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |CreateWi|ndow",,b|
|00000460| 6c 6f 63 6b 25 20 b8 20 | 6f 70 74 69 6f 6e 73 25 |lock% . |options%|
|00000470| 0d 01 2c 1b c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |..,... "|Wimp_Clo|
|00000480| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 01 36 13 ee |seTempla|te"..6..|
|00000490| 20 85 20 f2 65 72 72 6f | 72 62 6f 78 3a e0 0d 01 | . .erro|rbox:...|
|000004a0| 40 09 f2 69 6e 69 74 0d | 01 4a 0b 71 75 69 74 25 |@..init.|.J.quit%|
|000004b0| 3d a3 0d 01 54 23 6d 61 | 73 6b 25 3d 31 3a 20 f4 |=...T#ma|sk%=1: .|
|000004c0| 20 6d 61 73 6b 20 6f 75 | 74 20 6e 75 6c 6c 5f 72 | mask ou|t null_r|
|000004d0| 65 61 73 6f 6e 0d 01 5e | 05 f5 0d 01 68 27 20 20 |eason..^|....h' |
|000004e0| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c 6d |.. "Wimp|_Poll",m|
|000004f0| 61 73 6b 25 2c 71 25 20 | b8 20 72 65 61 73 6f 6e |ask%,q% |. reason|
|00000500| 25 0d 01 72 12 20 20 c8 | 8e 20 72 65 61 73 6f 6e |%..r. .|. reason|
|00000510| 25 20 ca 0d 01 7c 1e 20 | 20 c9 20 31 3a 20 f2 72 |% ...|. | . 1: .r|
|00000520| 65 64 72 61 77 5f 77 69 | 6e 64 6f 77 28 21 71 25 |edraw_wi|ndow(!q%|
|00000530| 29 0d 01 86 44 20 20 c9 | 20 32 3a 20 f2 6f 70 65 |)...D .| 2: .ope|
|00000540| 6e 5f 77 69 6e 64 6f 77 | 28 21 71 25 2c 71 25 21 |n_window|(!q%,q%!|
|00000550| 34 2c 71 25 21 38 2c 71 | 25 21 31 32 2c 71 25 21 |4,q%!8,q|%!12,q%!|
|00000560| 31 36 2c 71 25 21 32 30 | 2c 71 25 21 32 34 2c 71 |16,q%!20|,q%!24,q|
|00000570| 25 21 32 38 29 0d 01 90 | 1d 20 20 c9 20 33 3a 20 |%!28)...|. . 3: |
|00000580| f2 63 6c 6f 73 65 5f 77 | 69 6e 64 6f 77 28 21 71 |.close_w|indow(!q|
|00000590| 25 29 0d 01 9a 38 20 20 | c9 20 36 3a 20 f2 6d 6f |%)...8 |. 6: .mo|
|000005a0| 75 73 65 5f 63 6c 69 63 | 6b 28 21 71 25 2c 71 25 |use_clic|k(!q%,q%|
|000005b0| 21 34 2c 71 25 21 38 2c | 71 25 21 31 32 2c 71 25 |!4,q%!8,|q%!12,q%|
|000005c0| 21 31 36 2c 71 25 21 32 | 30 29 0d 01 a4 17 20 20 |!16,q%!2|0).... |
|000005d0| c9 20 39 3a 20 f2 6d 65 | 6e 75 5f 73 65 6c 65 63 |. 9: .me|nu_selec|
|000005e0| 74 0d 01 ae 1e 20 20 c9 | 20 31 37 2c 31 38 3a 20 |t.... .| 17,18: |
|000005f0| f2 72 65 63 65 69 76 65 | 28 71 25 21 31 36 29 0d |.receive|(q%!16).|
|00000600| 01 b8 07 20 20 cb 0d 01 | c2 0b fd 20 71 75 69 74 |... ...|... quit|
|00000610| 25 0d 01 cc 17 c8 99 20 | 22 57 69 6d 70 5f 43 6c |%...... |"Wimp_Cl|
|00000620| 6f 73 65 44 6f 77 6e 22 | 0d 01 d6 05 e0 0d 01 e0 |oseDown"|........|
|00000630| 05 3a 0d 01 ea 13 dd 20 | f2 69 6e 66 6f 28 62 6c |.:..... |.info(bl|
|00000640| 6f 63 6b 25 29 0d 01 f4 | 55 78 30 25 3d 21 62 6c |ock%)...|Ux0%=!bl|
|00000650| 6f 63 6b 25 3a 79 30 25 | 3d 62 6c 6f 63 6b 25 21 |ock%:y0%|=block%!|
|00000660| 34 3a 78 31 25 3d 62 6c | 6f 63 6b 25 21 38 3a 79 |4:x1%=bl|ock%!8:y|
|00000670| 31 25 3d 62 6c 6f 63 6b | 25 21 31 32 3a 73 63 78 |1%=block|%!12:scx|
|00000680| 25 3d 62 6c 6f 63 6b 25 | 21 31 36 3a 73 63 79 25 |%=block%|!16:scy%|
|00000690| 3d 62 6c 6f 63 6b 25 21 | 32 30 0d 01 fe 1d 62 78 |=block%!|20....bx|
|000006a0| 25 3d 78 30 25 2d 73 63 | 78 25 3a 62 79 25 3d 79 |%=x0%-sc|x%:by%=y|
|000006b0| 31 25 2d 73 63 79 25 0d | 02 08 05 e1 0d 02 12 05 |1%-scy%.|........|
|000006c0| 3a 0d 02 1c 14 dd 20 f2 | 67 65 74 77 28 68 61 6e |:..... .|getw(han|
|000006d0| 64 6c 65 25 29 0d 02 26 | 34 21 62 6c 6f 63 6b 25 |dle%)..&|4!block%|
|000006e0| 3d 68 61 6e 64 6c 65 25 | 3a c8 99 20 22 57 69 6d |=handle%|:.. "Wim|
|000006f0| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00000700| 22 2c 2c 62 6c 6f 63 6b | 25 0d 02 30 37 f2 69 6e |",,block|%..07.in|
|00000710| 66 6f 28 62 6c 6f 63 6b | 25 2b 34 29 3a 62 68 61 |fo(block|%+4):bha|
|00000720| 6e 64 6c 65 25 3d 62 6c | 6f 63 6b 25 21 32 38 3a |ndle%=bl|ock%!28:|
|00000730| 66 6c 61 67 73 25 3d 62 | 6c 6f 63 6b 25 21 33 32 |flags%=b|lock%!32|
|00000740| 0d 02 3a 05 e1 0d 02 44 | 05 3a 0d 02 4e 1d dd 20 |..:....D|.:..N.. |
|00000750| f2 72 65 64 72 61 77 5f | 77 69 6e 64 6f 77 28 68 |.redraw_|window(h|
|00000760| 61 6e 64 6c 65 25 29 0d | 02 58 0f 21 71 25 3d 68 |andle%).|.X.!q%=h|
|00000770| 61 6e 64 6c 65 25 0d 02 | 62 26 c8 99 20 22 57 69 |andle%..|b&.. "Wi|
|00000780| 6d 70 5f 52 65 64 72 61 | 77 57 69 6e 64 6f 77 22 |mp_Redra|wWindow"|
|00000790| 2c 2c 71 25 20 b8 20 6d | 6f 72 65 25 0d 02 6c 0f |,,q% . m|ore%..l.|
|000007a0| f2 69 6e 66 6f 28 71 25 | 2b 34 29 0d 02 76 0c c8 |.info(q%|+4)..v..|
|000007b0| 95 20 6d 6f 72 65 25 0d | 02 80 28 20 20 c8 99 20 |. more%.|..( .. |
|000007c0| 22 57 69 6d 70 5f 47 65 | 74 52 65 63 74 61 6e 67 |"Wimp_Ge|tRectang|
|000007d0| 6c 65 22 2c 2c 71 25 20 | b8 20 6d 6f 72 65 25 0d |le",,q% |. more%.|
|000007e0| 02 8a 05 ce 0d 02 94 05 | e1 0d 02 9e 05 3a 0d 02 |........|.....:..|
|000007f0| a8 15 dd 20 f2 66 72 6f | 6e 74 28 68 61 6e 64 6c |... .fro|nt(handl|
|00000800| 65 25 29 0d 02 b2 12 e7 | 20 68 61 6e 64 6c 65 25 |e%).....| handle%|
|00000810| 3d 2d 31 20 e1 0d 02 bc | 12 f2 67 65 74 77 28 68 |=-1 ....|..getw(h|
|00000820| 61 6e 64 6c 65 25 29 0d | 02 c6 36 f2 6f 70 65 6e |andle%).|..6.open|
|00000830| 5f 77 69 6e 64 6f 77 28 | 68 61 6e 64 6c 65 25 2c |_window(|handle%,|
|00000840| 78 30 25 2c 79 30 25 2c | 78 31 25 2c 79 31 25 2c |x0%,y0%,|x1%,y1%,|
|00000850| 73 63 78 25 2c 73 63 79 | 25 2c 2d 31 29 0d 02 d0 |scx%,scy|%,-1)...|
|00000860| 05 e1 0d 02 da 05 3a 0d | 02 e4 16 dd 20 f2 72 65 |......:.|.... .re|
|00000870| 6f 70 65 6e 28 68 61 6e | 64 6c 65 25 29 0d 02 ee |open(han|dle%)...|
|00000880| 12 f2 67 65 74 77 28 68 | 61 6e 64 6c 65 25 29 0d |..getw(h|andle%).|
|00000890| 02 f8 46 f2 6f 70 65 6e | 5f 77 69 6e 64 6f 77 28 |..F.open|_window(|
|000008a0| 68 61 6e 64 6c 65 25 2c | 78 6f 25 2c 79 6f 25 2c |handle%,|xo%,yo%,|
|000008b0| 78 31 25 2d 78 30 25 2b | 78 6f 25 2c 79 31 25 2d |x1%-x0%+|xo%,y1%-|
|000008c0| 79 30 25 2b 79 6f 25 2c | 73 63 78 25 2c 73 63 79 |y0%+yo%,|scx%,scy|
|000008d0| 25 2c 2d 31 29 0d 03 02 | 05 e1 0d 03 0c 05 3a 0d |%,-1)...|......:.|
|000008e0| 03 16 3e dd 20 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |..>. .op|en_windo|
|000008f0| 77 28 68 61 6e 64 6c 65 | 25 2c 78 30 25 2c 79 30 |w(handle|%,x0%,y0|
|00000900| 25 2c 78 31 25 2c 79 31 | 25 2c 73 63 78 25 2c 73 |%,x1%,y1|%,scx%,s|
|00000910| 63 79 25 2c 62 68 61 6e | 64 6c 65 25 29 0d 03 20 |cy%,bhan|dle%).. |
|00000920| 12 e7 20 68 61 6e 64 6c | 65 25 3d 2d 31 20 e1 0d |.. handl|e%=-1 ..|
|00000930| 03 2a 27 62 6c 6f 63 6b | 25 21 30 3d 68 61 6e 64 |.*'block|%!0=hand|
|00000940| 6c 65 25 3a 62 6c 6f 63 | 6b 25 21 32 38 3d 62 68 |le%:bloc|k%!28=bh|
|00000950| 61 6e 64 6c 65 25 0d 03 | 34 39 62 6c 6f 63 6b 25 |andle%..|49block%|
|00000960| 21 34 3d 78 30 25 3a 62 | 6c 6f 63 6b 25 21 38 3d |!4=x0%:b|lock%!8=|
|00000970| 79 30 25 3a 62 6c 6f 63 | 6b 25 21 31 32 3d 78 31 |y0%:bloc|k%!12=x1|
|00000980| 25 3a 62 6c 6f 63 6b 25 | 21 31 36 3d 79 31 25 0d |%:block%|!16=y1%.|
|00000990| 03 3e 21 62 6c 6f 63 6b | 25 21 32 30 3d 73 63 78 |.>!block|%!20=scx|
|000009a0| 25 3a 62 6c 6f 63 6b 25 | 21 32 34 3d 73 63 79 25 |%:block%|!24=scy%|
|000009b0| 0d 03 48 20 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |..H .. "|Wimp_Ope|
|000009c0| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |nWindow"|,,block%|
|000009d0| 0d 03 52 05 e1 0d 03 5c | 05 3a 0d 03 66 11 dd 20 |..R....\|.:..f.. |
|000009e0| f2 67 65 74 70 6f 69 6e | 74 65 72 0d 03 70 24 c8 |.getpoin|ter..p$.|
|000009f0| 99 20 22 57 69 6d 70 5f | 47 65 74 50 6f 69 6e 74 |. "Wimp_|GetPoint|
|00000a00| 65 72 49 6e 66 6f 22 2c | 2c 62 6c 6f 63 6b 25 0d |erInfo",|,block%.|
|00000a10| 03 7a 60 6d 6f 75 73 65 | 78 25 3d 21 62 6c 6f 63 |.z`mouse|x%=!bloc|
|00000a20| 6b 25 3a 6d 6f 75 73 65 | 79 25 3d 62 6c 6f 63 6b |k%:mouse|y%=block|
|00000a30| 25 21 34 3a 62 25 3d 62 | 6c 6f 63 6b 25 21 38 3a |%!4:b%=b|lock%!8:|
|00000a40| 68 61 6e 64 6c 65 25 3d | 62 6c 6f 63 6b 25 21 31 |handle%=|block%!1|
|00000a50| 32 3a 69 63 6f 6e 25 3d | 62 6c 6f 63 6b 25 21 31 |2:icon%=|block%!1|
|00000a60| 36 3a 6f 62 25 3d 62 6c | 6f 63 6b 25 21 32 30 0d |6:ob%=bl|ock%!20.|
|00000a70| 03 84 05 e1 0d 03 8e 05 | 3a 0d 03 98 1c dd 20 f2 |........|:..... .|
|00000a80| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 68 61 6e |close_wi|ndow(han|
|00000a90| 64 6c 65 25 29 0d 03 a2 | 12 f2 67 65 74 77 28 68 |dle%)...|..getw(h|
|00000aa0| 61 6e 64 6c 65 25 29 0d | 03 ac 1b 78 6f 25 3d 78 |andle%).|...xo%=x|
|00000ab0| 30 25 3a 79 6f 25 3d 79 | 30 25 3a 6f 70 65 6e 25 |0%:yo%=y|0%:open%|
|00000ac0| 3d a3 0d 03 b6 29 21 71 | 25 3d 68 61 6e 64 6c 65 |=....)!q|%=handle|
|00000ad0| 25 3a c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |%:.. "Wi|mp_Close|
|00000ae0| 57 69 6e 64 6f 77 22 2c | 2c 71 25 0d 03 c0 05 e1 |Window",|,q%.....|
|00000af0| 0d 03 ca 05 3a 0d 03 d4 | 0e dd 20 f2 64 6f 5f 6d |....:...|.. .do_m|
|00000b00| 65 6e 75 0d 03 de 36 c8 | 99 20 22 57 69 6d 70 5f |enu...6.|. "Wimp_|
|00000b10| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 69 63 6f |CreateMe|nu",,ico|
|00000b20| 6e 6d 65 6e 75 25 2c 6d | 6f 75 73 65 78 25 2d 36 |nmenu%,m|ousex%-6|
|00000b30| 34 2c 39 36 2b 34 2a 34 | 34 0d 03 e8 05 e1 0d 03 |4,96+4*4|4.......|
|00000b40| f2 05 3a 0d 03 fc 2a dd | 20 a4 63 72 65 61 74 65 |..:...*.| .create|
|00000b50| 5f 6d 65 6e 75 5f 6c 65 | 76 65 6c 28 6d 65 6e 75 |_menu_le|vel(menu|
|00000b60| 62 6c 6f 63 6b 25 2c 74 | 65 78 74 24 29 0d 04 06 |block%,t|ext$)...|
|00000b70| 4a ea 20 6e 65 77 74 65 | 78 74 24 2c 74 69 74 6c |J. newte|xt$,titl|
|00000b80| 65 24 2c 77 69 64 74 68 | 25 2c 70 74 72 25 2c 73 |e$,width|%,ptr%,s|
|00000b90| 68 61 64 65 25 2c 74 69 | 63 6b 25 2c 64 6f 74 74 |hade%,ti|ck%,dott|
|00000ba0| 65 64 25 2c 66 67 63 6f | 6c 25 2c 73 75 62 6d 65 |ed%,fgco|l%,subme|
|00000bb0| 6e 75 25 2c 6d 62 25 0d | 04 10 0d 6c 65 76 65 6c |nu%,mb%.|...level|
|00000bc0| 25 2b 3d 31 0d 04 1a 2b | 6d 62 25 3d 6d 65 6e 75 |%+=1...+|mb%=menu|
|00000bd0| 62 6c 6f 63 6b 25 2b 28 | 6c 65 76 65 6c 25 2d 31 |block%+(|level%-1|
|00000be0| 29 2a 6d 65 6e 75 62 6c | 6f 63 6b 73 69 7a 65 0d |)*menubl|ocksize.|
|00000bf0| 04 24 20 74 69 74 6c 65 | 24 3d c0 74 65 78 74 24 |.$ title|$=.text$|
|00000c00| 2c a7 74 65 78 74 24 2c | 22 2c 22 29 2d 31 29 0d |,.text$,|",")-1).|
|00000c10| 04 2e 0e 77 69 64 74 68 | 25 3d 31 39 36 0d 04 38 |...width|%=196..8|
|00000c20| 16 e7 20 c0 74 69 74 6c | 65 24 2c 31 29 3d 22 28 |.. .titl|e$,1)="(|
|00000c30| 22 20 8c 0d 04 42 17 20 | 20 74 69 74 6c 65 24 3d |" ...B. | title$=|
|00000c40| c1 74 69 74 6c 65 24 2c | 32 29 0d 04 4c 27 20 20 |.title$,|2)..L' |
|00000c50| 77 69 64 74 68 25 3d bb | 28 c0 74 69 74 6c 65 24 |width%=.|(.title$|
|00000c60| 2c a7 74 69 74 6c 65 24 | 2c 22 29 22 29 2d 31 29 |,.title$|,")")-1)|
|00000c70| 29 0d 04 56 24 20 20 74 | 69 74 6c 65 24 3d c1 74 |)..V$ t|itle$=.t|
|00000c80| 69 74 6c 65 24 2c a7 74 | 69 74 6c 65 24 2c 22 29 |itle$,.t|itle$,")|
|00000c90| 22 29 2b 31 29 0d 04 60 | 05 cd 0d 04 6a 1f 74 65 |")+1)..`|....j.te|
|00000ca0| 78 74 24 3d c1 74 65 78 | 74 24 2c a7 74 65 78 74 |xt$=.tex|t$,.text|
|00000cb0| 24 2c 22 2c 22 29 2b 31 | 29 0d 04 74 22 24 6d 62 |$,",")+1|)..t"$mb|
|00000cc0| 25 3d c0 74 69 74 6c 65 | 24 2c 31 31 29 3a 20 f4 |%=.title|$,11): .|
|00000cd0| 20 6d 65 6e 75 20 74 69 | 74 6c 65 0d 04 7e 41 6d | menu ti|tle..~Am|
|00000ce0| 62 25 3f 31 32 3d 60 74 | 66 63 6f 6c 3a 6d 62 25 |b%?12=`t|fcol:mb%|
|00000cf0| 3f 31 33 3d 32 3a 6d 62 | 25 3f 31 34 3d 60 77 66 |?13=2:mb|%?14=`wf|
|00000d00| 63 6f 6c 3a 6d 62 25 3f | 31 35 3d 60 77 62 63 6f |col:mb%?|15=`wbco|
|00000d10| 6c 3a 20 f4 20 63 6f 6c | 6f 75 72 73 0d 04 88 28 |l: . col|ours...(|
|00000d20| 6d 62 25 21 31 36 3d 77 | 69 64 74 68 25 3a 20 f4 |mb%!16=w|idth%: .|
|00000d30| 20 77 69 64 74 68 20 6f | 66 20 6d 65 6e 75 20 69 | width o|f menu i|
|00000d40| 74 65 6d 73 0d 04 92 25 | 6d 62 25 21 32 30 3d 34 |tems...%|mb%!20=4|
|00000d50| 34 3a 20 f4 20 68 65 69 | 67 68 74 20 6f 66 20 6d |4: . hei|ght of m|
|00000d60| 65 6e 75 20 69 74 65 6d | 73 0d 04 9c 27 6d 62 25 |enu item|s...'mb%|
|00000d70| 21 32 34 3d 30 3a 20 f4 | 20 76 65 72 74 2e 20 67 |!24=0: .| vert. g|
|00000d80| 61 70 20 62 65 74 77 65 | 65 6e 20 69 74 65 6d 73 |ap betwe|en items|
|00000d90| 0d 04 a6 1f e7 20 c2 74 | 65 78 74 24 2c 31 29 3c |..... .t|ext$,1)<|
|00000da0| 3e 22 2c 22 20 74 65 78 | 74 24 2b 3d 22 2c 22 0d |>"," tex|t$+=",".|
|00000db0| 04 b0 29 70 74 72 25 3d | 6d 62 25 2b 32 38 3a 20 |..)ptr%=|mb%+28: |
|00000dc0| f4 20 73 74 61 72 74 20 | 6d 65 6e 75 20 69 74 65 |. start |menu ite|
|00000dd0| 6d 73 20 62 6c 6f 63 6b | 0d 04 ba 05 f5 0d 04 c4 |ms block|........|
|00000de0| 0e 20 20 73 68 61 64 65 | 25 3d 30 0d 04 ce 0d 20 |. shade|%=0.... |
|00000df0| 20 74 69 63 6b 25 3d 30 | 0d 04 d8 0f 20 20 64 6f | tick%=0|.... do|
|00000e00| 74 74 65 64 25 3d 30 0d | 04 e2 11 20 20 73 75 62 |tted%=0.|... sub|
|00000e10| 6d 65 6e 75 25 3d 2d 31 | 0d 04 ec 36 20 20 e7 20 |menu%=-1|...6 . |
|00000e20| c0 74 65 78 74 24 2c 31 | 29 3d 22 3c 22 20 8c 20 |.text$,1|)="<" . |
|00000e30| 73 68 61 64 65 25 3d 26 | 34 30 30 30 30 30 3a 74 |shade%=&|400000:t|
|00000e40| 65 78 74 24 3d c1 74 65 | 78 74 24 2c 32 29 0d 04 |ext$=.te|xt$,2)..|
|00000e50| f6 2f 20 20 e7 20 c0 74 | 65 78 74 24 2c 31 29 3d |./ . .t|ext$,1)=|
|00000e60| 22 3e 22 20 8c 20 74 69 | 63 6b 25 3d 31 3a 74 65 |">" . ti|ck%=1:te|
|00000e70| 78 74 24 3d c1 74 65 78 | 74 24 2c 32 29 0d 05 00 |xt$=.tex|t$,2)...|
|00000e80| 31 20 20 e7 20 c0 74 65 | 78 74 24 2c 31 29 3d 22 |1 . .te|xt$,1)="|
|00000e90| 3a 22 20 8c 20 64 6f 74 | 74 65 64 25 3d 32 3a 74 |:" . dot|ted%=2:t|
|00000ea0| 65 78 74 24 3d c1 74 65 | 78 74 24 2c 32 29 0d 05 |ext$=.te|xt$,2)..|
|00000eb0| 0a 17 20 20 e7 20 c0 74 | 65 78 74 24 2c 31 29 3d |.. . .t|ext$,1)=|
|00000ec0| 22 21 22 20 8c 0d 05 14 | 25 20 20 20 20 73 75 62 |"!" ....|% sub|
|00000ed0| 6d 65 6e 75 25 3d 73 75 | 62 25 28 bb 28 c1 74 65 |menu%=su|b%(.(.te|
|00000ee0| 78 74 24 2c 32 2c 31 29 | 29 29 0d 05 1e 17 20 20 |xt$,2,1)|)).... |
|00000ef0| 20 20 74 65 78 74 24 3d | c1 74 65 78 74 24 2c 33 | text$=|.text$,3|
|00000f00| 29 0d 05 28 07 20 20 cd | 0d 05 32 17 20 20 e7 20 |)..(. .|..2. . |
|00000f10| c0 74 65 78 74 24 2c 31 | 29 3d 22 28 22 20 8c 0d |.text$,1|)="(" ..|
|00000f20| 05 3c 17 20 20 20 20 74 | 65 78 74 24 3d c1 74 65 |.<. t|ext$=.te|
|00000f30| 78 74 24 2c 32 29 0d 05 | 46 30 20 20 20 20 6e 65 |xt$,2)..|F0 ne|
|00000f40| 77 74 65 78 74 24 3d 6d | 65 6e 75 24 28 bb 28 c0 |wtext$=m|enu$(.(.|
|00000f50| 74 65 78 74 24 2c a7 74 | 65 78 74 24 2c 22 29 22 |text$,.t|ext$,")"|
|00000f60| 29 2d 31 29 29 29 0d 05 | 50 23 20 20 20 20 74 65 |)-1)))..|P# te|
|00000f70| 78 74 24 3d c1 74 65 78 | 74 24 2c a7 74 65 78 74 |xt$=.tex|t$,.text|
|00000f80| 24 2c 22 29 22 29 2b 31 | 29 0d 05 5a 38 20 20 20 |$,")")+1|)..Z8 |
|00000f90| 20 73 75 62 6d 65 6e 75 | 25 3d a4 63 72 65 61 74 | submenu|%=.creat|
|00000fa0| 65 5f 6d 65 6e 75 5f 6c | 65 76 65 6c 28 6d 65 6e |e_menu_l|evel(men|
|00000fb0| 75 62 6c 6f 63 6b 25 2c | 6e 65 77 74 65 78 74 24 |ublock%,|newtext$|
|00000fc0| 29 0d 05 64 07 20 20 cd | 0d 05 6e 2b 20 20 24 28 |)..d. .|..n+ $(|
|00000fd0| 70 74 72 25 2b 31 32 29 | 3d c0 c0 74 65 78 74 24 |ptr%+12)|=..text$|
|00000fe0| 2c a7 74 65 78 74 24 2c | 22 2c 22 29 2d 31 29 2c |,.text$,|",")-1),|
|00000ff0| 31 32 29 0d 05 78 21 20 | 20 74 65 78 74 24 3d c1 |12)..x! | text$=.|
|00001000| 74 65 78 74 24 2c a7 74 | 65 78 74 24 2c 22 2c 22 |text$,.t|ext$,","|
|00001010| 29 2b 31 29 0d 05 82 31 | 20 20 70 74 72 25 21 30 |)+1)...1| ptr%!0|
|00001020| 3d 74 69 63 6b 25 20 84 | 20 64 6f 74 74 65 64 25 |=tick% .| dotted%|
|00001030| 20 84 20 28 26 38 30 20 | 80 20 28 74 65 78 74 24 | . (&80 |. (text$|
|00001040| 3d 22 22 29 29 0d 05 8c | 15 20 20 70 74 72 25 21 |=""))...|. ptr%!|
|00001050| 34 3d 73 75 62 6d 65 6e | 75 25 0d 05 96 4c 20 20 |4=submen|u%...L |
|00001060| e7 20 73 68 61 64 65 25 | 20 8c 20 70 74 72 25 21 |. shade%| . ptr%!|
|00001070| 38 3d 26 34 30 30 30 30 | 30 20 84 20 26 30 31 30 |8=&40000|0 . &010|
|00001080| 30 32 31 20 84 20 37 3c | 3c 32 38 20 84 20 30 3c |021 . 7<|<28 . 0<|
|00001090| 3c 32 34 20 8b 20 70 74 | 72 25 21 38 3d 26 30 37 |<24 . pt|r%!8=&07|
|000010a0| 30 30 30 30 32 31 0d 05 | a0 0e 20 20 70 74 72 25 |000021..|.. ptr%|
|000010b0| 2b 3d 32 34 0d 05 aa 0e | fd 20 74 65 78 74 24 3d |+=24....|. text$=|
|000010c0| 22 22 0d 05 b4 08 3d 6d | 62 25 0d 05 be 05 3a 0d |""....=m|b%....:.|
|000010d0| 05 c8 24 dd 20 f2 63 72 | 65 61 74 65 5f 6d 65 6e |..$. .cr|eate_men|
|000010e0| 75 28 6d 65 6e 75 62 6c | 6f 63 6b 25 2c 74 65 78 |u(menubl|ock%,tex|
|000010f0| 74 24 29 0d 05 d2 0b ea | 20 63 72 61 70 25 0d 05 |t$).....| crap%..|
|00001100| dc 0c 6c 65 76 65 6c 25 | 3d 30 0d 05 e6 2e 63 72 |..level%|=0....cr|
|00001110| 61 70 25 3d a4 63 72 65 | 61 74 65 5f 6d 65 6e 75 |ap%=.cre|ate_menu|
|00001120| 5f 6c 65 76 65 6c 28 6d | 65 6e 75 62 6c 6f 63 6b |_level(m|enublock|
|00001130| 25 2c 74 65 78 74 24 29 | 0d 05 f0 3f e7 20 63 72 |%,text$)|...?. cr|
|00001140| 61 70 25 3c 3e 6d 65 6e | 75 62 6c 6f 63 6b 25 20 |ap%<>men|ublock% |
|00001150| 85 20 30 2c 22 49 6e 74 | 65 72 6e 61 6c 20 65 72 |. 0,"Int|ernal er|
|00001160| 72 6f 72 20 69 6e 20 50 | 52 4f 43 63 72 65 61 74 |ror in P|ROCcreat|
|00001170| 65 5f 6d 65 6e 75 22 0d | 05 fa 05 e1 0d 06 04 05 |e_menu".|........|
|00001180| 3a 0d 06 0e 16 dd 20 a4 | 69 63 6f 6e 5f 73 65 74 |:..... .|icon_set|
|00001190| 28 68 25 2c 69 25 29 0d | 06 18 2d 21 71 25 3d 68 |(h%,i%).|..-!q%=h|
|000011a0| 25 3a 71 25 21 34 3d 69 | 25 3a c8 99 20 22 57 69 |%:q%!4=i|%:.. "Wi|
|000011b0| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|000011c0| 2c 2c 71 25 0d 06 22 19 | 3d 28 28 71 25 21 32 34 |,,q%..".|=((q%!24|
|000011d0| 20 80 20 31 3c 3c 32 31 | 29 3c 3e 30 29 0d 06 2c | . 1<<21|)<>0)..,|
|000011e0| 05 3a 0d 06 36 16 dd 20 | f2 73 65 74 5f 69 63 6f |.:..6.. |.set_ico|
|000011f0| 6e 28 68 25 2c 69 25 29 | 0d 06 40 29 21 71 25 3d |n(h%,i%)|..@)!q%=|
|00001200| 68 25 3a 71 25 21 34 3d | 69 25 3a 71 25 21 38 3d |h%:q%!4=|i%:q%!8=|
|00001210| 31 3c 3c 32 31 3a 71 25 | 21 31 32 3d 31 3c 3c 32 |1<<21:q%|!12=1<<2|
|00001220| 31 0d 06 4a 1e c8 99 20 | 22 57 69 6d 70 5f 53 65 |1..J... |"Wimp_Se|
|00001230| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00001240| 06 54 05 e1 0d 06 5e 05 | 3a 0d 06 68 18 dd 20 f2 |.T....^.|:..h.. .|
|00001250| 63 6c 65 61 72 5f 69 63 | 6f 6e 28 68 25 2c 69 25 |clear_ic|on(h%,i%|
|00001260| 29 0d 06 72 29 21 71 25 | 3d 68 25 3a 71 25 21 34 |)..r)!q%|=h%:q%!4|
|00001270| 3d 69 25 3a 71 25 21 38 | 3d 30 3c 3c 32 31 3a 71 |=i%:q%!8|=0<<21:q|
|00001280| 25 21 31 32 3d 31 3c 3c | 32 31 0d 06 7c 1e c8 99 |%!12=1<<|21..|...|
|00001290| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|000012a0| 61 74 65 22 2c 2c 71 25 | 0d 06 86 05 e1 0d 06 90 |ate",,q%|........|
|000012b0| 05 3a 0d 06 9a 16 dd 20 | a4 69 63 6f 6e 61 64 64 |.:..... |.iconadd|
|000012c0| 72 28 68 25 2c 69 25 29 | 0d 06 a4 2d 21 71 25 3d |r(h%,i%)|...-!q%=|
|000012d0| 68 25 3a 71 25 21 34 3d | 69 25 3a c8 99 20 22 57 |h%:q%!4=|i%:.. "W|
|000012e0| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|000012f0| 22 2c 2c 71 25 0d 06 ae | 33 e7 20 28 71 25 21 32 |",,q%...|3. (q%!2|
|00001300| 34 20 80 20 26 31 30 30 | 29 3d 30 20 85 20 30 2c |4 . &100|)=0 . 0,|
|00001310| 22 49 63 6f 6e 20 69 73 | 20 6e 6f 74 20 69 6e 64 |"Icon is| not ind|
|00001320| 69 72 65 63 74 65 64 22 | 0d 06 b8 0a 3d 71 25 21 |irected"|....=q%!|
|00001330| 32 38 0d 06 c2 05 3a 0d | 06 cc 1b dd 20 f2 77 61 |28....:.|.... .wa|
|00001340| 72 6e 69 6e 67 62 6f 78 | 28 77 61 72 6e 69 6e 67 |rningbox|(warning|
|00001350| 24 29 0d 06 d6 1f 21 71 | 25 3d 9f 3a 24 28 71 25 |$)....!q|%=.:$(q%|
|00001360| 2b 34 29 3d 77 61 72 6e | 69 6e 67 24 2b bd 28 30 |+4)=warn|ing$+.(0|
|00001370| 29 0d 06 e0 27 c8 99 20 | 22 57 69 6d 70 5f 52 65 |)...'.. |"Wimp_Re|
|00001380| 70 6f 72 74 45 72 72 6f | 72 22 2c 71 25 2c 31 2c |portErro|r",q%,1,|
|00001390| 70 72 6f 67 72 61 6d 24 | 0d 06 ea 05 e1 0d 06 f4 |program$|........|
|000013a0| 05 3a 0d 06 fe 0d dd 20 | a4 6f 6e 6c 69 6e 65 0d |.:..... |.online.|
|000013b0| 07 08 17 ea 20 73 74 61 | 72 74 25 2c 65 6e 64 25 |.... sta|rt%,end%|
|000013c0| 2c 77 61 69 74 25 0d 07 | 12 10 73 74 61 72 74 25 |,wait%..|..start%|
|000013d0| 3d 96 28 2d 34 29 0d 07 | 1c 35 ef 20 32 3a ef 20 |=.(-4)..|.5. 2:. |
|000013e0| 31 2c 30 2c 31 2c 30 2c | 31 2c 30 2c 31 2c 30 2c |1,0,1,0,|1,0,1,0,|
|000013f0| 31 2c 30 2c 31 2c 30 2c | 31 2c 30 2c 31 2c 30 2c |1,0,1,0,|1,0,1,0,|
|00001400| 31 2c 30 2c 31 2c 30 3a | ef 20 33 0d 07 26 0e 77 |1,0,1,0:|. 3..&.w|
|00001410| 61 69 74 25 3d a6 28 35 | 29 0d 07 30 0e 65 6e 64 |ait%=.(5|)..0.end|
|00001420| 25 3d 96 28 2d 34 29 0d | 07 3a 12 3d 28 73 74 61 |%=.(-4).|.:.=(sta|
|00001430| 72 74 25 3d 65 6e 64 25 | 29 0d 07 44 05 3a 0d 07 |rt%=end%|)..D.:..|
|00001440| 4e 16 dd 20 a4 72 65 61 | 64 28 69 64 25 2c f8 20 |N.. .rea|d(id%,. |
|00001450| 6c 66 25 29 0d 07 58 11 | ea 20 64 61 74 61 24 2c |lf%)..X.|. data$,|
|00001460| 62 79 74 65 25 0d 07 62 | 0c 64 61 74 61 24 3d 22 |byte%..b|.data$="|
|00001470| 22 0d 07 6c 10 62 79 74 | 65 25 3d 9a 23 20 69 64 |"..l.byt|e%=.# id|
|00001480| 25 0d 07 76 3c f4 20 62 | 79 74 65 20 74 6f 65 76 |%..v<. b|yte toev|
|00001490| 6f 65 67 65 6e 20 61 61 | 6e 20 64 61 74 61 24 20 |oegen aa|n data$ |
|000014a0| 7a 6f 6c 61 6e 67 20 6e | 69 65 74 20 6c 69 6e 65 |zolang n|iet line|
|000014b0| 66 65 65 64 20 6f 66 20 | 6b 6f 6d 6d 61 0d 07 80 |feed of |komma...|
|000014c0| 1c c8 95 20 62 79 74 65 | 25 3c 3e 31 30 20 80 20 |... byte|%<>10 . |
|000014d0| 62 79 74 65 25 3c 3e 34 | 34 0d 07 8a 15 20 20 64 |byte%<>4|4.... d|
|000014e0| 61 74 61 24 2b 3d bd 28 | 62 79 74 65 25 29 0d 07 |ata$+=.(|byte%)..|
|000014f0| 94 12 20 20 62 79 74 65 | 25 3d 9a 23 20 69 64 25 |.. byte|%=.# id%|
|00001500| 0d 07 9e 05 ce 0d 07 a8 | 1b 6c 66 25 3d a3 3a 20 |........|.lf%=.: |
|00001510| e7 20 62 79 74 65 25 3d | 31 30 20 6c 66 25 3d b9 |. byte%=|10 lf%=.|
|00001520| 0d 07 b2 0a 3d 64 61 74 | 61 24 0d 07 bc 05 3a 0d |....=dat|a$....:.|
|00001530| 07 c6 14 dd 20 a4 6c 6f | 77 65 72 63 61 73 65 28 |.... .lo|wercase(|
|00001540| 73 24 29 0d 07 d0 12 ea | 20 4b 25 2c 63 25 2c 6c |s$).....| K%,c%,l|
|00001550| 6f 77 65 72 24 0d 07 da | 0d 6c 6f 77 65 72 24 3d |ower$...|.lower$=|
|00001560| 22 22 0d 07 e4 12 e3 20 | 4b 25 3d 31 20 b8 20 a9 |""..... |K%=1 . .|
|00001570| 28 73 24 29 0d 07 ee 15 | 20 20 63 25 3d 97 28 c1 |(s$)....| c%=.(.|
|00001580| 73 24 2c 4b 25 2c 31 29 | 29 0d 07 f8 21 20 20 e7 |s$,K%,1)|)...! .|
|00001590| 20 63 25 3e 3d 97 28 22 | 41 22 29 20 80 20 63 25 | c%>=.("|A") . c%|
|000015a0| 3c 3d 97 28 22 5a 22 29 | 20 8c 0d 08 02 23 20 20 |<=.("Z")| ....# |
|000015b0| 20 20 6c 6f 77 65 72 24 | 2b 3d bd 28 63 25 2d 97 | lower$|+=.(c%-.|
|000015c0| 28 22 41 22 29 2b 97 28 | 22 61 22 29 29 0d 08 0c |("A")+.(|"a"))...|
|000015d0| 07 20 20 cc 0d 08 16 15 | 20 20 20 20 6c 6f 77 65 |. .....| lowe|
|000015e0| 72 24 2b 3d bd 28 63 25 | 29 0d 08 20 07 20 20 cd |r$+=.(c%|).. . .|
|000015f0| 0d 08 2a 05 ed 0d 08 34 | 0b 3d 6c 6f 77 65 72 24 |..*....4|.=lower$|
|00001600| 0d 08 3e 05 3a 0d 08 48 | 21 dd 20 a4 73 65 6e 64 |..>.:..H|!. .send|
|00001610| 5f 63 6f 64 65 28 69 64 | 25 2c 6e 61 6d 65 24 2c |_code(id|%,name$,|
|00001620| 63 6f 64 65 25 29 0d 08 | 52 10 ea 20 73 24 2c 6c |code%)..|R.. s$,l|
|00001630| 66 25 2c 6f 6b 25 0d 08 | 5c 21 73 24 3d a4 6c 6f |f%,ok%..|\!s$=.lo|
|00001640| 77 65 72 63 61 73 65 28 | a4 72 65 61 64 28 69 64 |wercase(|.read(id|
|00001650| 25 2c 6c 66 25 29 29 0d | 08 66 23 e7 20 73 24 3c |%,lf%)).|.f#. s$<|
|00001660| 3e a4 6c 6f 77 65 72 63 | 61 73 65 28 6e 61 6d 65 |>.lowerc|ase(name|
|00001670| 24 29 20 84 20 6c 66 25 | 20 8c 0d 08 70 0b 20 20 |$) . lf%| ...p. |
|00001680| 6f 6b 25 3d a3 0d 08 7a | 05 cc 0d 08 84 09 20 20 |ok%=...z|...... |
|00001690| ef 20 32 0d 08 8e 07 20 | 20 f5 0d 08 98 19 20 20 |. 2.... | ..... |
|000016a0| 20 20 73 24 3d a4 72 65 | 61 64 28 69 64 25 2c 6c | s$=.re|ad(id%,l|
|000016b0| 66 25 29 0d 08 a2 26 20 | 20 20 20 e7 20 73 24 3d |f%)...& | . s$=|
|000016c0| 22 2a 22 20 ef 20 31 2c | 63 6f 64 65 25 20 8b 20 |"*" . 1,|code% . |
|000016d0| ef 20 31 2c bb 28 73 24 | 29 0d 08 ac 0b 20 20 fd |. 1,.(s$|).... .|
|000016e0| 20 6c 66 25 0d 08 b6 09 | 20 20 ef 20 33 0d 08 c0 | lf%....| . 3...|
|000016f0| 0b 20 20 6f 6b 25 3d b9 | 0d 08 ca 05 cd 0d 08 d4 |. ok%=.|........|
|00001700| 08 3d 6f 6b 25 0d 08 de | 05 3a 0d 08 e8 1b dd 20 |.=ok%...|.:..... |
|00001710| a4 6a 75 6d 70 5f 63 6f | 64 65 28 69 64 25 2c 6e |.jump_co|de(id%,n|
|00001720| 61 6d 65 24 29 0d 08 f2 | 10 ea 20 73 24 2c 6c 66 |ame$)...|.. s$,lf|
|00001730| 25 2c 6f 6b 25 0d 08 fc | 21 73 24 3d a4 6c 6f 77 |%,ok%...|!s$=.low|
|00001740| 65 72 63 61 73 65 28 a4 | 72 65 61 64 28 69 64 25 |ercase(.|read(id%|
|00001750| 2c 6c 66 25 29 29 0d 09 | 06 23 e7 20 73 24 3c 3e |,lf%))..|.#. s$<>|
|00001760| a4 6c 6f 77 65 72 63 61 | 73 65 28 6e 61 6d 65 24 |.lowerca|se(name$|
|00001770| 29 20 84 20 6c 66 25 20 | 8c 0d 09 10 0b 20 20 6f |) . lf% |..... o|
|00001780| 6b 25 3d a3 0d 09 1a 05 | cc 0d 09 24 07 20 20 f5 |k%=.....|...$. .|
|00001790| 0d 09 2e 19 20 20 20 20 | 73 24 3d a4 72 65 61 64 |.... |s$=.read|
|000017a0| 28 69 64 25 2c 6c 66 25 | 29 0d 09 38 0b 20 20 fd |(id%,lf%|)..8. .|
|000017b0| 20 6c 66 25 0d 09 42 0b | 20 20 6f 6b 25 3d b9 0d | lf%..B.| ok%=..|
|000017c0| 09 4c 05 cd 0d 09 56 08 | 3d 6f 6b 25 0d 09 60 05 |.L....V.|=ok%..`.|
|000017d0| 3a 0d 09 6a 14 dd 20 f2 | 73 65 74 75 70 5f 70 72 |:..j.. .|setup_pr|
|000017e0| 69 6e 74 65 72 0d 09 74 | 13 ea 20 4b 25 2c 74 24 |inter..t|.. K%,t$|
|000017f0| 2c 69 64 25 2c 6c 66 25 | 0d 09 7e 27 69 64 25 3d |,id%,lf%|..~'id%=|
|00001800| 8e 28 22 3c 49 6e 69 74 | 44 4d 24 44 69 72 3e 2e |.("<Init|DM$Dir>.|
|00001810| 3c 49 6e 69 74 44 4d 24 | 46 69 6c 65 3e 22 29 0d |<InitDM$|File>").|
|00001820| 09 88 2e e7 20 69 64 25 | 3d 30 20 85 20 30 2c 22 |.... id%|=0 . 0,"|
|00001830| 50 72 69 6e 74 65 72 20 | 63 6f 64 65 73 20 66 69 |Printer |codes fi|
|00001840| 6c 65 20 6e 6f 74 20 66 | 6f 75 6e 64 22 0d 09 92 |le not f|ound"...|
|00001850| 28 70 72 69 6e 74 65 72 | 24 3d a4 72 65 61 64 28 |(printer|$=.read(|
|00001860| 69 64 25 2c 6c 66 25 29 | 3a e7 20 ac 20 6c 66 25 |id%,lf%)|:. . lf%|
|00001870| 20 ef 37 3a e1 0d 09 9c | 33 6f 6b 25 3d a4 73 65 | .7:....|3ok%=.se|
|00001880| 6e 64 5f 63 6f 64 65 28 | 69 64 25 2c 22 72 65 73 |nd_code(|id%,"res|
|00001890| 65 74 22 2c 30 29 3a 20 | f4 20 72 65 73 65 74 73 |et",0): |. resets|
|000018a0| 20 70 72 69 6e 74 65 72 | 0d 09 a6 13 e7 20 ac 20 | printer|..... . |
|000018b0| 6f 6b 25 20 d9 23 69 64 | 25 3a e1 0d 09 b0 0e e3 |ok% .#id|%:......|
|000018c0| 20 4b 25 3d 31 20 b8 20 | 33 0d 09 ba 0d 20 20 c8 | K%=1 . |3.... .|
|000018d0| 8e 20 4b 25 20 ca 0d 09 | c4 14 20 20 c9 20 31 3a |. K% ...|.. . 1:|
|000018e0| 20 74 24 3d 22 70 69 63 | 61 22 0d 09 ce 15 20 20 | t$="pic|a".... |
|000018f0| c9 20 32 3a 20 74 24 3d | 22 65 6c 69 74 65 22 0d |. 2: t$=|"elite".|
|00001900| 09 d8 19 20 20 c9 20 33 | 3a 20 74 24 3d 22 63 6f |... . 3|: t$="co|
|00001910| 6e 64 65 6e 73 65 64 22 | 0d 09 e2 07 20 20 cb 0d |ndensed"|.... ..|
|00001920| 09 ec 43 20 20 e7 20 4b | 25 3d 70 69 74 63 68 25 |..C . K|%=pitch%|
|00001930| 20 6f 6b 25 3d a4 73 65 | 6e 64 5f 63 6f 64 65 28 | ok%=.se|nd_code(|
|00001940| 69 64 25 2c 74 24 2c 30 | 29 20 8b 20 6f 6b 25 3d |id%,t$,0|) . ok%=|
|00001950| a4 6a 75 6d 70 5f 63 6f | 64 65 28 69 64 25 2c 74 |.jump_co|de(id%,t|
|00001960| 24 29 0d 09 f6 15 20 20 | e7 20 ac 20 6f 6b 25 20 |$).... |. . ok% |
|00001970| d9 23 69 64 25 3a e1 0d | 0a 00 05 ed 0d 0a 0a 7c |.#id%:..|.......||
|00001980| e7 20 6e 6c 71 25 20 6f | 6b 25 3d a4 6a 75 6d 70 |. nlq% o|k%=.jump|
|00001990| 5f 63 6f 64 65 28 69 64 | 25 2c 22 64 72 61 66 74 |_code(id|%,"draft|
|000019a0| 22 29 3a 6f 6b 25 3d a4 | 73 65 6e 64 5f 63 6f 64 |"):ok%=.|send_cod|
|000019b0| 65 28 69 64 25 2c 22 6e | 6c 71 22 2c 30 29 20 8b |e(id%,"n|lq",0) .|
|000019c0| 20 6f 6b 25 3d a4 73 65 | 6e 64 5f 63 6f 64 65 28 | ok%=.se|nd_code(|
|000019d0| 69 64 25 2c 22 64 72 61 | 66 74 22 2c 30 29 3a 6f |id%,"dra|ft",0):o|
|000019e0| 6b 25 3d a4 6a 75 6d 70 | 5f 63 6f 64 65 28 69 64 |k%=.jump|_code(id|
|000019f0| 25 2c 22 6e 6c 71 22 29 | 0d 0a 14 13 e7 20 ac 20 |%,"nlq")|..... . |
|00001a00| 6f 6b 25 20 d9 23 69 64 | 25 3a e1 0d 0a 1e 39 6f |ok% .#id|%:....9o|
|00001a10| 6b 25 3d a4 73 65 6e 64 | 5f 63 6f 64 65 28 69 64 |k%=.send|_code(id|
|00001a20| 25 2c 22 6c 69 6e 65 73 | 70 61 63 69 6e 67 22 2c |%,"lines|pacing",|
|00001a30| 6c 73 25 29 3a 20 f4 20 | 69 6e 20 31 2f 37 32 20 |ls%): . |in 1/72 |
|00001a40| 69 6e 63 68 0d 0a 28 13 | e7 20 ac 20 6f 6b 25 20 |inch..(.|. . ok% |
|00001a50| d9 23 69 64 25 3a e1 0d | 0a 32 35 6f 6b 25 3d a4 |.#id%:..|.25ok%=.|
|00001a60| 73 65 6e 64 5f 63 6f 64 | 65 28 69 64 25 2c 22 70 |send_cod|e(id%,"p|
|00001a70| 61 67 65 6c 65 6e 67 74 | 68 22 2c 70 6c 25 29 3a |agelengt|h",pl%):|
|00001a80| 20 f4 20 69 6e 20 69 6e | 63 68 65 73 0d 0a 3c 13 | . in in|ches..<.|
|00001a90| e7 20 ac 20 6f 6b 25 20 | d9 23 69 64 25 3a e1 0d |. . ok% |.#id%:..|
|00001aa0| 0a 46 37 6f 6b 25 3d a4 | 73 65 6e 64 5f 63 6f 64 |.F7ok%=.|send_cod|
|00001ab0| 65 28 69 64 25 2c 22 74 | 6f 70 6d 61 72 67 69 6e |e(id%,"t|opmargin|
|00001ac0| 22 2c bb 28 24 74 6d 25 | 29 29 3a 20 f4 20 69 6e |",.($tm%|)): . in|
|00001ad0| 20 6c 69 6e 65 73 0d 0a | 50 13 e7 20 ac 20 6f 6b | lines..|P.. . ok|
|00001ae0| 25 20 d9 23 69 64 25 3a | e1 0d 0a 5a 3a 6f 6b 25 |% .#id%:|...Z:ok%|
|00001af0| 3d a4 73 65 6e 64 5f 63 | 6f 64 65 28 69 64 25 2c |=.send_c|ode(id%,|
|00001b00| 22 62 6f 74 74 6f 6d 6d | 61 72 67 69 6e 22 2c bb |"bottomm|argin",.|
|00001b10| 28 24 62 6d 25 29 29 3a | 20 f4 20 69 6e 20 6c 69 |($bm%)):| . in li|
|00001b20| 6e 65 73 0d 0a 64 13 e7 | 20 ac 20 6f 6b 25 20 d9 |nes..d..| . ok% .|
|00001b30| 23 69 64 25 3a e1 0d 0a | 6e 38 6f 6b 25 3d a4 73 |#id%:...|n8ok%=.s|
|00001b40| 65 6e 64 5f 63 6f 64 65 | 28 69 64 25 2c 22 6c 65 |end_code|(id%,"le|
|00001b50| 66 74 6d 61 72 67 69 6e | 22 2c bb 28 24 6c 6d 25 |ftmargin|",.($lm%|
|00001b60| 29 29 3a 20 f4 20 69 6e | 20 63 68 61 72 73 0d 0a |)): . in| chars..|
|00001b70| 78 13 e7 20 ac 20 6f 6b | 25 20 d9 23 69 64 25 3a |x.. . ok|% .#id%:|
|00001b80| e1 0d 0a 82 39 6f 6b 25 | 3d a4 73 65 6e 64 5f 63 |....9ok%|=.send_c|
|00001b90| 6f 64 65 28 69 64 25 2c | 22 72 69 67 68 74 6d 61 |ode(id%,|"rightma|
|00001ba0| 72 67 69 6e 22 2c bb 28 | 24 72 6d 25 29 29 3a 20 |rgin",.(|$rm%)): |
|00001bb0| f4 20 69 6e 20 63 68 61 | 72 73 0d 0a 8c 0a d9 23 |. in cha|rs.....#|
|00001bc0| 20 69 64 25 0d 0a 96 05 | e1 0d 0a a0 05 3a 0d 0a | id%....|.....:..|
|00001bd0| aa 0c dd 20 f2 64 6f 5f | 69 74 0d 0a b4 0f ff 28 |... .do_|it.....(|
|00001be0| 22 46 58 20 35 2c 30 22 | 29 0d 0a be 47 e7 20 a4 |"FX 5,0"|)...G. .|
|00001bf0| 69 63 6f 6e 5f 73 65 74 | 28 6f 70 74 69 6f 6e 73 |icon_set|(options|
|00001c00| 25 2c 32 29 20 ff 28 22 | 46 58 20 35 2c 31 22 29 |%,2) .("|FX 5,1")|
|00001c10| 3a 20 f4 20 70 72 69 6e | 74 69 6e 67 20 74 6f 20 |: . prin|ting to |
|00001c20| 70 61 72 61 6c 6c 2e 69 | 6e 74 65 72 66 61 63 65 |parall.i|nterface|
|00001c30| 0d 0a c8 47 e7 20 a4 69 | 63 6f 6e 5f 73 65 74 28 |...G. .i|con_set(|
|00001c40| 6f 70 74 69 6f 6e 73 25 | 2c 33 29 20 ff 28 22 46 |options%|,3) .("F|
|00001c50| 58 20 35 2c 32 22 29 3a | 20 f4 20 70 72 69 6e 74 |X 5,2"):| . print|
|00001c60| 69 6e 67 20 74 6f 20 73 | 65 72 69 61 6c 20 69 6e |ing to s|erial in|
|00001c70| 74 65 72 66 61 63 65 0d | 0a d2 51 e7 20 ac 20 a4 |terface.|..Q. . .|
|00001c80| 6f 6e 6c 69 6e 65 20 f2 | 6d 65 73 73 61 67 65 28 |online .|message(|
|00001c90| 22 50 72 69 6e 74 65 72 | 20 75 6e 63 6f 6e 6e 65 |"Printer| unconne|
|00001ca0| 63 74 65 64 2f 6f 66 66 | 6c 69 6e 65 20 52 65 63 |cted/off|line Rec|
|00001cb0| 6f 6e 6e 65 63 74 20 61 | 6e 64 20 74 72 79 20 61 |onnect a|nd try a|
|00001cc0| 67 61 69 6e 22 29 3a e1 | 0d 0a dc 12 f2 73 65 74 |gain"):.|.....set|
|00001cd0| 75 70 5f 70 72 69 6e 74 | 65 72 0d 0a e6 34 e7 20 |up_print|er...4. |
|00001ce0| ac 20 6f 6b 25 20 f2 77 | 61 72 6e 69 6e 67 62 6f |. ok% .w|arningbo|
|00001cf0| 78 28 22 50 72 69 6e 74 | 65 72 20 63 6f 64 65 73 |x("Print|er codes|
|00001d00| 20 66 69 6c 65 20 6e 6f | 74 20 4f 4b 22 29 0d 0a | file no|t OK")..|
|00001d10| f0 05 e1 0d 0a fa 05 3a | 0d 0b 04 18 dd 20 f2 72 |.......:|..... .r|
|00001d20| 65 63 65 69 76 65 28 6d | 65 73 73 61 67 65 25 29 |eceive(m|essage%)|
|00001d30| 0d 0b 0e 11 c8 8e 20 6d | 65 73 73 61 67 65 25 20 |...... m|essage% |
|00001d40| ca 0d 0b 18 10 c9 20 30 | 3a 20 71 75 69 74 25 3d |...... 0|: quit%=|
|00001d50| b9 0d 0b 22 05 cb 0d 0b | 2c 05 e1 0d 0b 36 05 3a |..."....|,....6.:|
|00001d60| 0d 0b 40 2e dd 20 f2 6d | 6f 75 73 65 5f 63 6c 69 |..@.. .m|ouse_cli|
|00001d70| 63 6b 28 78 25 2c 79 25 | 2c 62 25 2c 68 61 6e 64 |ck(x%,y%|,b%,hand|
|00001d80| 6c 65 25 2c 69 63 6f 6e | 25 2c 6f 62 25 29 0d 0b |le%,icon|%,ob%)..|
|00001d90| 4a 19 6d 6f 75 73 65 78 | 25 3d 78 25 3a 6d 6f 75 |J.mousex|%=x%:mou|
|00001da0| 73 65 79 25 3d 79 25 0d | 0b 54 0b c8 8e 20 62 25 |sey%=y%.|.T... b%|
|00001db0| 20 ca 0d 0b 5e 07 c9 20 | 32 0d 0b 68 1b 20 20 e7 | ...^.. |2..h. .|
|00001dc0| 20 68 61 6e 64 6c 65 25 | 3d 2d 32 20 f2 64 6f 5f | handle%|=-2 .do_|
|00001dd0| 6d 65 6e 75 0d 0b 72 09 | c9 20 31 2c 34 0d 0b 7c |menu..r.|. 1,4..||
|00001de0| 12 20 20 c8 8e 20 68 61 | 6e 64 6c 65 25 20 ca 0d |. .. ha|ndle% ..|
|00001df0| 0b 86 0d 20 20 c9 20 6d | 61 69 6e 25 0d 0b 90 12 |... . m|ain%....|
|00001e00| 20 20 20 20 c8 8e 20 69 | 63 6f 6e 25 20 ca 0d 0b | .. i|con% ...|
|00001e10| 9a 16 20 20 20 20 c9 20 | 31 32 3a 20 70 69 74 63 |.. . |12: pitc|
|00001e20| 68 25 3d 31 0d 0b a4 16 | 20 20 20 20 c9 20 20 37 |h%=1....| . 7|
|00001e30| 3a 20 70 69 74 63 68 25 | 3d 32 0d 0b ae 16 20 20 |: pitch%|=2.... |
|00001e40| 20 20 c9 20 20 38 3a 20 | 70 69 74 63 68 25 3d 33 | . 8: |pitch%=3|
|00001e50| 0d 0b b8 19 20 20 20 20 | c9 20 20 39 3a 20 6e 6c |.... |. 9: nl|
|00001e60| 71 25 3d ac 20 6e 6c 71 | 25 0d 0b c2 14 20 20 20 |q%=. nlq|%.... |
|00001e70| 20 c9 20 20 36 3a 20 6c | 73 25 3d 31 32 0d 0b cc | . 6: l|s%=12...|
|00001e80| 13 20 20 20 20 c9 20 31 | 34 3a 20 6c 73 25 3d 39 |. . 1|4: ls%=9|
|00001e90| 0d 0b d6 14 20 20 20 20 | c9 20 20 32 3a 20 70 6c |.... |. 2: pl|
|00001ea0| 25 3d 31 31 0d 0b e0 14 | 20 20 20 20 c9 20 31 31 |%=11....| . 11|
|00001eb0| 3a 20 70 6c 25 3d 31 32 | 0d 0b ea 22 20 20 20 20 |: pl%=12|..." |
|00001ec0| c9 20 32 36 3a 20 f2 63 | 6c 6f 73 65 5f 77 69 6e |. 26: .c|lose_win|
|00001ed0| 64 6f 77 28 6d 61 69 6e | 25 29 0d 0b f4 29 20 20 |dow(main|%)...) |
|00001ee0| 20 20 c9 20 32 31 3a 20 | f2 63 6c 6f 73 65 5f 77 | . 21: |.close_w|
|00001ef0| 69 6e 64 6f 77 28 6d 61 | 69 6e 25 29 3a f2 64 6f |indow(ma|in%):.do|
|00001f00| 5f 69 74 0d 0b fe 67 20 | 20 20 20 c9 20 32 34 3a |_it...g | . 24:|
|00001f10| 20 f2 6d 65 73 73 61 67 | 65 28 22 43 68 61 6e 67 | .messag|e("Chang|
|00001f20| 65 20 74 68 65 20 70 72 | 69 6e 74 65 72 20 63 6f |e the pr|inter co|
|00001f30| 64 65 73 20 66 69 6c 65 | 20 74 6f 20 63 6f 6e 66 |des file| to conf|
|00001f40| 69 67 75 72 65 20 74 68 | 69 73 20 70 72 6f 67 72 |igure th|is progr|
|00001f50| 61 6d 20 66 6f 72 20 79 | 6f 75 72 20 6f 77 6e 20 |am for y|our own |
|00001f60| 70 72 69 6e 74 65 72 2e | 22 29 0d 0c 08 09 20 20 |printer.|").... |
|00001f70| 20 20 cb 0d 0c 12 10 20 | 20 c9 20 6d 65 73 73 61 | ..... | . messa|
|00001f80| 67 65 25 0d 0c 1c 29 20 | 20 20 20 e7 20 69 63 6f |ge%...) | . ico|
|00001f90| 6e 25 3d 31 20 f2 63 6c | 6f 73 65 5f 77 69 6e 64 |n%=1 .cl|ose_wind|
|00001fa0| 6f 77 28 6d 65 73 73 61 | 67 65 25 29 0d 0c 26 0a |ow(messa|ge%)..&.|
|00001fb0| 20 20 c9 20 2d 32 0d 0c | 30 36 20 20 20 20 e7 20 | . -2..|06 . |
|00001fc0| 6f 70 65 6e 25 20 f2 66 | 72 6f 6e 74 28 6d 61 69 |open% .f|ront(mai|
|00001fd0| 6e 25 29 20 8b 20 f2 72 | 65 6f 70 65 6e 28 6d 61 |n%) . .r|eopen(ma|
|00001fe0| 69 6e 25 29 3a 6f 70 65 | 6e 25 3d b9 0d 0c 3a 07 |in%):ope|n%=...:.|
|00001ff0| 20 20 cb 0d 0c 44 05 cb | 0d 0c 4e 05 e1 0d 0c 58 | ...D..|..N....X|
|00002000| 05 3a 0d 0c 62 12 dd 20 | f2 6d 65 6e 75 5f 73 65 |.:..b.. |.menu_se|
|00002010| 6c 65 63 74 0d 0c 6c 13 | ea 20 6d 65 6e 75 24 2c |lect..l.|. menu$,|
|00002020| 61 64 6a 75 73 74 25 0d | 0c 76 3b c8 99 20 22 57 |adjust%.|.v;.. "W|
|00002030| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00002040| 66 6f 22 2c 2c 62 6c 6f | 63 6b 25 3a 61 64 6a 75 |fo",,blo|ck%:adju|
|00002050| 73 74 25 3d 28 62 6c 6f | 63 6b 25 21 38 20 80 20 |st%=(blo|ck%!8 . |
|00002060| 31 29 0d 0c 80 39 c8 99 | 20 22 57 69 6d 70 5f 44 |1)...9..| "Wimp_D|
|00002070| 65 63 6f 64 65 4d 65 6e | 75 22 2c 2c 69 63 6f 6e |ecodeMen|u",,icon|
|00002080| 6d 65 6e 75 25 2c 71 25 | 2c c4 32 30 30 2c 22 20 |menu%,q%|,.200," |
|00002090| 22 29 b8 2c 2c 2c 6d 65 | 6e 75 24 0d 0c 8a 0e c8 |").,,,me|nu$.....|
|000020a0| 8e 20 6d 65 6e 75 24 20 | ca 0d 0c 94 14 c9 20 22 |. menu$ |...... "|
|000020b0| 53 61 76 65 20 6f 70 74 | 69 6f 6e 73 22 0d 0c 9e |Save opt|ions"...|
|000020c0| 24 20 20 69 64 25 3d ae | 28 22 3c 49 6e 69 74 44 |$ id%=.|("<InitD|
|000020d0| 4d 24 44 69 72 3e 2e 21 | 43 68 6f 69 63 65 73 22 |M$Dir>.!|Choices"|
|000020e0| 29 0d 0c a8 21 20 20 d5 | 23 69 64 25 2c a4 69 63 |)...! .|#id%,.ic|
|000020f0| 6f 6e 5f 73 65 74 28 6f | 70 74 69 6f 6e 73 25 2c |on_set(o|ptions%,|
|00002100| 32 29 0d 0c b2 21 20 20 | d5 23 69 64 25 2c a4 69 |2)...! |.#id%,.i|
|00002110| 63 6f 6e 5f 73 65 74 28 | 6f 70 74 69 6f 6e 73 25 |con_set(|options%|
|00002120| 2c 33 29 0d 0c bc 0b 20 | 20 d9 23 69 64 25 0d 0c |,3).... | .#id%..|
|00002130| c6 0c c9 20 22 51 75 69 | 74 22 0d 0c d0 0d 20 20 |... "Qui|t".... |
|00002140| 71 75 69 74 25 3d b9 0d | 0c da 05 cb 0d 0c e4 16 |quit%=..|........|
|00002150| e7 20 61 64 6a 75 73 74 | 25 20 f2 64 6f 5f 6d 65 |. adjust|% .do_me|
|00002160| 6e 75 0d 0c ee 05 e1 0d | 0c f8 05 3a 0d 0d 02 0b |nu......|...:....|
|00002170| dd 20 f2 69 6e 69 74 0d | 0d 0c 0d ea 20 69 64 25 |. .init.|.... id%|
|00002180| 2c 6c 66 25 0d 0d 16 49 | 60 77 62 63 6f 6c 3d 30 |,lf%...I|`wbcol=0|
|00002190| 3a 60 74 62 63 6f 6c 3d | 32 3a 60 73 63 6f 3d 33 |:`tbcol=|2:`sco=3|
|000021a0| 3a 60 6d 62 63 6f 6c 3d | 32 3a 60 77 66 63 6f 6c |:`mbcol=|2:`wfcol|
|000021b0| 3d 37 3a 60 74 66 63 6f | 6c 3d 37 3a 60 73 63 69 |=7:`tfco|l=7:`sci|
|000021c0| 3d 31 3a 60 74 62 63 6f | 6c 32 3d 31 32 0d 0d 20 |=1:`tbco|l2=12.. |
|000021d0| 25 de 20 69 63 6f 6e 6d | 65 6e 75 25 20 32 36 38 |%. iconm|enu% 268|
|000021e0| 3a 6d 65 6e 75 62 6c 6f | 63 6b 73 69 7a 65 3d 32 |:menublo|cksize=2|
|000021f0| 36 38 0d 0d 2a 15 6d 65 | 6e 75 62 6c 6f 63 6b 73 |68..*.me|nublocks|
|00002200| 69 7a 65 3d 32 36 38 0d | 0d 34 21 6e 6f 6f 66 64 |ize=268.|.4!noofd|
|00002210| 69 61 67 77 3d 32 3a de | 20 73 75 62 25 28 6e 6f |iagw=2:.| sub%(no|
|00002220| 6f 66 64 69 61 67 77 29 | 0d 0d 3e 0f f4 20 69 63 |ofdiagw)|..>.. ic|
|00002230| 6f 6e 20 6d 65 6e 75 0d | 0d 48 40 6d 65 6e 75 24 |on menu.|.H@menu$|
|00002240| 3d 22 28 32 31 30 29 22 | 2b 70 72 6f 67 72 61 6d |="(210)"|+program|
|00002250| 24 2b 22 2c 21 31 49 6e | 66 6f 2c 21 32 4f 70 74 |$+",!1In|fo,!2Opt|
|00002260| 69 6f 6e 73 2c 53 61 76 | 65 20 6f 70 74 69 6f 6e |ions,Sav|e option|
|00002270| 73 2c 51 75 69 74 22 0d | 0d 52 22 73 75 62 25 28 |s,Quit".|.R"sub%(|
|00002280| 31 29 3d 69 6e 66 6f 25 | 3a 73 75 62 25 28 32 29 |1)=info%|:sub%(2)|
|00002290| 3d 6f 70 74 69 6f 6e 73 | 25 0d 0d 5c 1f de 20 69 |=options|%..\.. i|
|000022a0| 63 6f 6e 6d 65 6e 75 25 | 20 32 2a 6d 65 6e 75 62 |conmenu%| 2*menub|
|000022b0| 6c 6f 63 6b 73 69 7a 65 | 0d 0d 66 21 f2 63 72 65 |locksize|..f!.cre|
|000022c0| 61 74 65 5f 6d 65 6e 75 | 28 69 63 6f 6e 6d 65 6e |ate_menu|(iconmen|
|000022d0| 75 25 2c 6d 65 6e 75 24 | 29 0d 0d 70 49 21 71 25 |u%,menu$|)..pI!q%|
|000022e0| 3d 2d 31 3a 71 25 21 34 | 3d 30 3a 71 25 21 38 3d |=-1:q%!4|=0:q%!8=|
|000022f0| 30 3a 71 25 21 31 32 3d | 36 39 3a 71 25 21 31 36 |0:q%!12=|69:q%!16|
|00002300| 3d 36 38 3a 71 25 21 32 | 30 3d 26 33 30 30 32 3a |=68:q%!2|0=&3002:|
|00002310| 24 28 71 25 2b 32 34 29 | 3d 22 21 69 6e 69 74 64 |$(q%+24)|="!initd|
|00002320| 6d 22 0d 0d 7a 27 c8 99 | 20 22 57 69 6d 70 5f 43 |m"..z'..| "Wimp_C|
|00002330| 72 65 61 74 65 49 63 6f | 6e 22 2c 2c 71 25 20 b8 |reateIco|n",,q% .|
|00002340| 20 69 63 6f 6e 62 61 72 | 25 0d 0d 84 0b 6f 70 65 | iconbar|%....ope|
|00002350| 6e 25 3d b9 0d 0d 8e 48 | f2 67 65 74 70 6f 69 6e |n%=....H|.getpoin|
|00002360| 74 65 72 3a 78 6f 25 3d | 6d 6f 75 73 65 78 25 3a |ter:xo%=|mousex%:|
|00002370| 79 6f 25 3d 6d 6f 75 73 | 65 79 25 3a 20 f4 20 6f |yo%=mous|ey%: . o|
|00002380| 6e 6c 79 20 6e 65 63 65 | 73 73 61 72 79 20 69 66 |nly nece|ssary if|
|00002390| 20 6f 70 65 6e 25 3d 46 | 41 4c 53 45 0d 0d 98 22 | open%=F|ALSE..."|
|000023a0| 69 64 25 3d 8e 28 22 3c | 49 6e 69 74 44 4d 24 44 |id%=.("<|InitDM$D|
|000023b0| 69 72 3e 2e 21 43 68 6f | 69 63 65 73 22 29 0d 0d |ir>.!Cho|ices")..|
|000023c0| a2 0e e7 20 69 64 25 3c | 3e 30 20 8c 0d 0d ac 19 |... id%<|>0 .....|
|000023d0| 20 20 62 25 3d 9a 23 69 | 64 25 3a f4 20 70 61 72 | b%=.#i|d%:. par|
|000023e0| 61 6c 6c 65 6c 0d 0d b6 | 20 20 20 e7 20 62 25 20 |allel...| . b% |
|000023f0| f2 73 65 74 5f 69 63 6f | 6e 28 6f 70 74 69 6f 6e |.set_ico|n(option|
|00002400| 73 25 2c 32 29 0d 0d c0 | 17 20 20 62 25 3d 9a 23 |s%,2)...|. b%=.#|
|00002410| 69 64 25 3a f4 20 73 65 | 72 69 61 6c 0d 0d ca 20 |id%:. se|rial... |
|00002420| 20 20 e7 20 62 25 20 f2 | 73 65 74 5f 69 63 6f 6e | . b% .|set_icon|
|00002430| 28 6f 70 74 69 6f 6e 73 | 25 2c 33 29 0d 0d d4 0b |(options|%,3)....|
|00002440| 20 20 d9 23 69 64 25 0d | 0d de 05 cc 0d 0d e8 1b | .#id%.|........|
|00002450| 20 20 f2 73 65 74 5f 69 | 63 6f 6e 28 6f 70 74 69 | .set_i|con(opti|
|00002460| 6f 6e 73 25 2c 32 29 0d | 0d f2 05 cd 0d 0d fc 21 |ons%,2).|.......!|
|00002470| 70 69 74 63 68 25 3d 31 | 3a 6e 6c 71 25 3d a3 3a |pitch%=1|:nlq%=.:|
|00002480| 6c 73 25 3d 31 32 3a 70 | 6c 25 3d 31 32 0d 0e 06 |ls%=12:p|l%=12...|
|00002490| 27 69 64 25 3d 8e 28 22 | 3c 49 6e 69 74 44 4d 24 |'id%=.("|<InitDM$|
|000024a0| 44 69 72 3e 2e 3c 49 6e | 69 74 44 4d 24 46 69 6c |Dir>.<In|itDM$Fil|
|000024b0| 65 3e 22 29 0d 0e 10 2e | e7 20 69 64 25 3d 30 20 |e>")....|. id%=0 |
|000024c0| 85 20 30 2c 22 50 72 69 | 6e 74 65 72 20 63 6f 64 |. 0,"Pri|nter cod|
|000024d0| 65 73 20 66 69 6c 65 20 | 6e 6f 74 20 66 6f 75 6e |es file |not foun|
|000024e0| 64 22 0d 0e 1a 43 70 72 | 69 6e 74 65 72 24 3d a4 |d"...Cpr|inter$=.|
|000024f0| 72 65 61 64 28 69 64 25 | 2c 6c 66 25 29 3a e7 20 |read(id%|,lf%):. |
|00002500| ac 20 6c 66 25 20 85 20 | 30 2c 22 50 72 69 6e 74 |. lf% . |0,"Print|
|00002510| 65 72 20 63 6f 64 65 73 | 20 66 69 6c 65 20 6e 6f |er codes| file no|
|00002520| 74 20 4f 4b 22 0d 0e 24 | 16 24 70 72 69 6e 74 65 |t OK"..$|.$printe|
|00002530| 72 25 3d 70 72 69 6e 74 | 65 72 24 0d 0e 2e 0a d9 |r%=print|er$.....|
|00002540| 23 20 69 64 25 0d 0e 38 | 05 e1 0d 0e 42 05 3a 0d |# id%..8|....B.:.|
|00002550| 0e 4c 18 dd 20 f2 6d 65 | 73 73 61 67 65 28 6d 65 |.L.. .me|ssage(me|
|00002560| 73 73 61 67 65 24 29 0d | 0e 56 1b 24 6d 65 73 73 |ssage$).|.V.$mess|
|00002570| 61 67 65 5f 69 63 6f 6e | 25 3d 6d 65 73 73 61 67 |age_icon|%=messag|
|00002580| 65 24 0d 0e 60 14 f2 66 | 72 6f 6e 74 28 6d 65 73 |e$..`..f|ront(mes|
|00002590| 73 61 67 65 25 29 0d 0e | 6a 05 e1 0d 0e 74 05 3a |sage%)..|j....t.:|
|000025a0| 0d 0e 7e 0f dd 20 f2 65 | 72 72 6f 72 62 6f 78 0d |..~.. .e|rrorbox.|
|000025b0| 0e 88 07 ea 20 85 0d 0e | 92 1f ee 20 85 20 ea 20 |.... ...|... . . |
|000025c0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f |.. "Wimp|_CloseDo|
|000025d0| 77 6e 22 3a e0 0d 0e 9c | 36 21 71 25 3d 9f 3a 24 |wn":....|6!q%=.:$|
|000025e0| 28 71 25 2b 34 29 3d f6 | 24 2b 22 20 28 69 6e 74 |(q%+4)=.|$+" (int|
|000025f0| 65 72 6e 61 6c 20 65 72 | 72 6f 72 20 22 2b c3 28 |ernal er|ror "+.(|
|00002600| 9e 29 2b 22 29 22 2b bd | 28 30 29 0d 0e a6 27 c8 |.)+")"+.|(0)...'.|
|00002610| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00002620| 72 6f 72 22 2c 71 25 2c | 31 2c 70 72 6f 67 72 61 |ror",q%,|1,progra|
|00002630| 6d 24 0d 0e b0 17 c8 99 | 20 22 57 69 6d 70 5f 43 |m$......| "Wimp_C|
|00002640| 6c 6f 73 65 44 6f 77 6e | 22 0d 0e ba 05 e1 0d ff |loseDown|".......|
+--------+-------------------------+-------------------------+--------+--------+
